home *** CD-ROM | disk | FTP | other *** search
/ GFX Sensations 1 / Graphic Sensations - Volume 1.iso / com_net / mail / thor / thor.lha / rexx / getconfconfig.thor < prev    next >
Encoding:
Text File  |  1994-08-06  |  988 b   |  37 lines
  1. /*
  2. **  getconfconfig.thor - demonstrates the GETCONFCONFIG function.
  3. **                       (new in THOR 1.22)
  4. **
  5. **    Will return 0 on success, and 10 if the given BBS or Conference was 
  6. **  unknown.
  7. **
  8. **  To calculate the total number of messages in conference, use:
  9. **  "LastMsg - FirstMsg + 1".
  10. **
  11. **    Template:
  12. **
  13. **    BBSNAME=BBS/A,CONFNAME=CONF/A,STEM/A
  14. */
  15.  
  16. options results
  17.  
  18. address "THOR.01"
  19.  
  20. GETCONFCONFIG bbs '"Ultima Thule BBS"' conf '"THOR/Support"' stem CONFIG
  21.  
  22. if(rc ~= 0) then exit
  23.  
  24. say " First Message....:" CONFIG.FIRSTMSG
  25. say " Last Message.....:" CONFIG.LASTMSG
  26. say " Total number.....:" CONFIG.LASTMSG - CONFIG.FIRSTMSG + 1
  27. say " Unread...........:" CONFIG.UNREAD
  28. say " Signature........:" CONFIG.SIGNATURE
  29. say " Alias............:" CONFIG.ALIAS
  30. say " Messages to Keep.:" CONFIG.KEEPMSG
  31. say " Days to Keep.....:" CONFIG.KEEPTIME
  32. say " KeepMsg flags....:" CONFIG.KEEPMSGFLAG
  33. say " KeepTime flags...:" CONFIG.KEEPTIMEFLAG
  34. say " Conf.Number......:" CONFIG.CONFNUMBER
  35.  
  36. exit
  37.